on startMovie
  global printer,gPropFont,gMonoFont, gPageCount
  
  if the machineType = 256 then
    --we're running in windows!
    put "times" into gPropFont
    put "times" into gMonoFont
    if not objectP(printer) then
      openxlib "pmatic.dll"
      put pmatic(mNew) into printer
    end if
    if not objectP(printer) then
      Alert "There is no currently selected printer. Printing features will be disabled."¬
&return&return&"Error code = "&string(printer) 
    end if
    printTestMIAWWindows gPageCount
  else
    put "times" into gPropFont
    put "times" into gMonoFont
    if not objectP(printer) then
      openxlib "PrintOMatic XObj"
      put PrintOMatic(mNew) into printer
    end if
    if not objectP(printer) then
      Alert "There is no currently selected printer. Printing features will be disabled."¬
&return&return&"Error code = "&string(printer) 
    end if
    printTestMIAW
  end if
 
end startMovie

on CloseWindow
  stopMovie
  --  tell the stage to cleanupMIAW
end

on stopMovie
  global printer
  
  if objectp(printer) then printer(mDispose)
  
  if the machineType = 256 then
    closexlib "pmatic.dll"
  else
    closexlib "printomatic xobj"
  end if
end stopMovie

on printTestMIAW pageCount
  global printer,gPrintList
  if not objectP(printer) then
    Alert "There is no currently selected printer. Printing features are disabled."
  else
    cursor 4
    printer (mReset)
    
    put printer(mGetPageWidth) into w
    put printer(mGetPageHeight) into h
    
    printer (mmasterTextBox,0,0,w,h)
    printer (mNewPage)
    FormatText (gPrintList)
    printer (mPrint)
    cursor -1
  end if
  
  closeWindow
end 


on printTestMIAWWindows pageCount
  global printer,gPrintList
  if not objectP(printer) then
    Alert "There is no currently selected printer. Printing features are disabled."
  else
    cursor 4
    
    printer (mReset)
    
    put printer(mGetPageWidth) into w
    put printer(mGetPageHeight) into h
    repeat with x = 1 to pageCount
      printer (mNewPage)
      printer (mTextBox,0,0,w,h,true)
    end repeat
    FormatText (gPrintList)
    printer (mPrint)
    
    cursor -1
    
  end if
  
  closeWindow
end 


on FormatText txt
  global printer,gPropFont
  printer (mSetTextFont,gPropFont)
  printer (mSetTextStyle,"bold")
  printer (mSetTextSize,14)
  printer (mAppendText,line 1 of txt&return)
  printer (mSetTextStyle,"normal")
  printer (mAppendText,line 2 of txt&return&return)
  
  repeat with cnt = 3 to the number of lines in txt
    printer (mSetTextSize,12)
    printer (mAppendText,line cnt of txt)
    printer (mSetTextSize,12)
    printer (mAppendText," "&return )
  end repeat
  
end

new lineson startMovie
  global printer,gPropFont,gMonoFont, gPageCount
  
  if the machineType = 256 then
    --we're running in windows!
    put "times" into gPropFont
    put "times" into gMonoFont
    if not objectP(printer) then
      openxlib "pmatic.dll"
      put pmatic(mNew) into printer
    end if
    if not objectP(printer) then
      Alert "There is no currently selected printer. Printing features will be disabled."¬
&return&return&"Error code = "&string(printer) 
    end if
    printTestMIAWWindows gPageCount
  else
    put "times" into gPropFont
    put "times" into gMonoFont
    if not objectP(printer) then
      openxlib "PrintOMatic XObj"
      put PrintOMatic(mNew) into printer
    end if
    if not objectP(printer) then
      Alert "There is no currently selected printer. Printing features will be disabled."¬
&return&return&"Error code = "&string(printer) 
    end if
    printTestMIAW
  end if
 
end startMovie

on CloseWindow
  stopMovie
  --  tell the stage to cleanupMIAW
end

on stopMovie
  global printer
  
  if objectp(printer) then printer(mDispose)
  
  if the machineType = 256 then
    closexlib "pmatic.dll"
  else
    closexlib "printomatic xobj"
  end if
end stopMovie

on printTestMIAW pageCount
  global printer,gPrintList
  if not objectP(printer) then
    Alert "There is no currently selected printer. Printing features are disabled."
  else
    cursor 4
    printer (mReset)
    
    put printer(mGetPageWidth) into w
    put printer(mGetPageHeight) into h
    
    printer (mmasterTextBox,0,0,w,h)
    printer (mNewPage)
    FormatText (gPrintList)
    printer (mPrint)
    cursor -1
  end if
  
  closeWindow
end 


on printTestMIAWWindows pageCount
  global printer,gPrintList
  if not objectP(printer) then
    Alert "There is no currently selected printer. Printing features are disabled."
  else
    cursor 4
    
    printer (mReset)
    
    put printer(mGetPageWidth) into w
    put printer(mGetPageHeight) into h
    repeat with x = 1 to pageCount
      printer (mNewPage)
      printer (mTextBox,0,0,w,h,true)
    end repeat
    FormatText (gPrintList)
    printer (mPrint)
    
    cursor -1
    
  end if
  
  closeWindow
end 


on FormatText txt
  global printer,gPropFont
  printer (mSetTextFont,gPropFont)
  printer (mSetTextStyle,"bold")
  printer (mSetTextSize,14)
  printer (mAppendText,line 1 of txt&return)
  printer (mSetTextStyle,"normal")
  printer (mAppendText,line 2 of txt&return&return)
  
  repeat with cnt = 3 to the number of lines in txt
    printer (mSetTextSize,12)
    printer (mAppendText,line cnt of txt)
    printer (mSetTextSize,12)
    printer (mAppendText," "&return )
  end repeat
  
end